home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / prelude / Number.p < prev    next >
Text File  |  2002-10-27  |  4KB  |  144 lines
  1. pTempVar <- <primitive 110 30 >
  2. <primitive 112 pTempVar 1  " truncateTo: " \
  3.   #( #[ 16r20 16r21 16rBF 16r0A 16r2F 16r21 16rC2 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " to:by: " \
  7.   #( #[ 16r05 16r2E 16rA0 16rF1 16r20 16r21 16r22 16r83 16r00 16rF2 16rF3 \
  8.         16rF5] \
  9.     #( #from:to:by:  )) >
  10.  
  11. <primitive 112 pTempVar 3  " to: " \
  12.   #( #[ 16r05 16r2E 16rA0 16rF1 16r20 16r21 16r51 16r83 16r00 16rF2 16rF3 \
  13.         16rF5] \
  14.     #( #from:to:by:  )) >
  15.  
  16. <primitive 112 pTempVar 4  " strictlyPositive " \
  17.   #( #[ 16r20 16r50 16rCC 16rF3 16rF5] \
  18.     #(  )) >
  19.  
  20. <primitive 112 pTempVar 5  " squared " \
  21.   #( #[ 16r20 16r20 16rC2 16rF3 16rF5] \
  22.     #(  )) >
  23.  
  24. <primitive 112 pTempVar 6  " sqrt " \
  25.   #( #[ 16r20 16r0A 16r10 16r0A 16r2B 16rF3 16rF5] \
  26.     #(  )) >
  27.  
  28. <primitive 112 pTempVar 7  " sign " \
  29.   #( #[ 16r20 16r50 16rC7 16rF7 16r03 16r5A 16rF8 16r0B 16rF2 16r20 16r50 \
  30.         16rCC 16rF7 16r03 16r51 16rF8 16r02 16rF2 16r50 16rF3 16rF5 \
  31.        ] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 8  " roundTo: " \
  35.   #( #[ 16r20 16r21 16rBF 16r0A 16r29 16r21 16rC2 16rF3 16rF5] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 9  " reciprocal " \
  39.   #( #[ 16r30 16r20 16rBF 16rF3 16rF5] \
  40.     #( 1.00  )) >
  41.  
  42. <primitive 112 pTempVar 10  " raisedTo: " \
  43.   #( #[ 16r20 16r0A 16r10 16r21 16r0A 16r10 16r0B 16r11 16rF3 16rF5] \
  44.     #(  )) >
  45.  
  46. <primitive 112 pTempVar 11  " radians " \
  47.   #( #[ 16r05 16r36 16r20 16r0A 16r10 16rB0 16rF3 16rF5] \
  48.     #(  )) >
  49.  
  50. <primitive 112 pTempVar 12  " positive " \
  51.   #( #[ 16r20 16r50 16rCB 16rF3 16rF5] \
  52.     #(  )) >
  53.  
  54. <primitive 112 pTempVar 13  " pi " \
  55.   #( #[ 16r20 16r30 16rC2 16rF3 16rF5] \
  56.     #( 3.1415926  )) >
  57.  
  58. <primitive 112 pTempVar 14  " negative " \
  59.   #( #[ 16r20 16r50 16rC7 16rF3 16rF5] \
  60.     #(  )) >
  61.  
  62. <primitive 112 pTempVar 15  " negated " \
  63.   #( #[ 16r50 16r20 16rC1 16rF3 16rF5] \
  64.     #(  )) >
  65.  
  66. <primitive 112 pTempVar 16  " log: " \
  67.   #( #[ 16r20 16r0A 16r21 16r21 16r0A 16r21 16rBF 16rF3 16rF5] \
  68.     #(  )) >
  69.  
  70. <primitive 112 pTempVar 17  " ln " \
  71.   #( #[ 16r20 16r0A 16r10 16r0A 16r21 16rF3 16rF5] \
  72.     #(  )) >
  73.  
  74. <primitive 112 pTempVar 18  " gamma " \
  75.   #( #[ 16r20 16r0A 16r10 16r0A 16r1B 16rF3 16rF5] \
  76.     #(  )) >
  77.  
  78. <primitive 112 pTempVar 19  " exp " \
  79.   #( #[ 16r20 16r0A 16r10 16r0A 16r18 16rF3 16rF5] \
  80.     #(  )) >
  81.  
  82. <primitive 112 pTempVar 20  " abs " \
  83.   #( #[ 16r20 16r50 16rC7 16rF7 16r05 16r50 16r20 16rC1 16rF8 16r02 16rF2 \
  84.         16r20 16rF3 16rF5] \
  85.     #(  )) >
  86.  
  87. <primitive 112 pTempVar 21  " @ " \
  88.   #( #[ 16r05 16r35 16rA0 16r20 16r0B 16r33 16r21 16r0B 16r34 16rF3 16rF5 \
  89.        ] \
  90.     #(  )) >
  91.  
  92. <primitive 112 pTempVar 22  " ^ " \
  93.   #( #[ 16r20 16r0A 16r10 16r21 16r0A 16r10 16r0B 16r11 16rF3 16rF5] \
  94.     #(  )) >
  95.  
  96. <primitive 112 pTempVar 23  " / " \
  97.   #( #[ 16r20 16r21 16r0B 16r23 16r21 16r20 16r0B 16r23 16rBF 16rF3 16rF5 \
  98.        ] \
  99.     #(  )) >
  100.  
  101. <primitive 112 pTempVar 24  " * " \
  102.   #( #[ 16r20 16r21 16r0B 16r23 16r21 16r20 16r0B 16r23 16rC2 16rF3 16rF5 \
  103.        ] \
  104.     #(  )) >
  105.  
  106. <primitive 112 pTempVar 25  " - " \
  107.   #( #[ 16r20 16r21 16r0B 16r23 16r21 16r20 16r0B 16r23 16rC1 16rF3 16rF5 \
  108.        ] \
  109.     #(  )) >
  110.  
  111. <primitive 112 pTempVar 26  " + " \
  112.   #( #[ 16r20 16r21 16r0B 16r23 16r21 16r20 16r0B 16r23 16rC0 16rF3 16rF5 \
  113.        ] \
  114.     #(  )) >
  115.  
  116. <primitive 112 pTempVar 27  " > " \
  117.   #( #[ 16r20 16r21 16r0B 16r23 16r21 16r20 16r0B 16r23 16rCC 16rF3 16rF5 \
  118.        ] \
  119.     #(  )) >
  120.  
  121. <primitive 112 pTempVar 28  " < " \
  122.   #( #[ 16r20 16r21 16r0B 16r23 16r21 16r20 16r0B 16r23 16rC7 16rF3 16rF5 \
  123.        ] \
  124.     #(  )) >
  125.  
  126. <primitive 112 pTempVar 29  " = " \
  127.   #( #[ 16r20 16r21 16r0B 16r23 16r21 16r20 16r0B 16r23 16rC9 16rF3 16rF5 \
  128.        ] \
  129.     #(  )) >
  130.  
  131. <primitive 112 pTempVar 30  " maxtype: " \
  132.   #( #[ 16r20 16r21 16rFA 16r02 16r09 16rF7 16r03 16r20 16rF8 16r05 16rF2 \
  133.         16r21 16r20 16r0B 16r10 16rF3 16rF5] \
  134.     #(  )) >
  135.  
  136. <primitive 98 #Number \
  137.   <primitive 97 #Number #Magnitude #AmigaTalk:General/Number.st \
  138.    #(  ) \
  139.    #( #truncateTo: #to:by: #to: #strictlyPositive #squared #sqrt #sign  \
  140.        #roundTo: #reciprocal #raisedTo: #radians #positive #pi #negative #negated #log:  \
  141.        #ln #gamma #exp #abs #@ #^ #/ #* #- #+ #> #< #= #maxtype:  ) \
  142.   pTempVar 3 6 > #ordinary >
  143.  
  144.